Shareware Grab Bag/Shareware Grab Bag.iso/050/tpstuff2.arc/CIRCLE.PAS

Pascal/Delphi Source File | 1985-04-21 | 512b | 17 lines

program circles(input, output);
{$I graphics.lib}
var
   x, mycolor : integer;
begin
   graphon;
   mycolor := 1;
   while mycolor <= 3 do begin
      x := 0;
      while x <= 300 do begin
         drawcircle(round(20 + x * 1.5 + mycolor), round(220 - (x / 2.2)), round(x/2), mycolor,1.0);
         drawcircle(round(620 - x * 1.5 + mycolor), round(220-(x/2.2)), round(x/2), mycolor, 1.0);
         x := x + 5;
      end;
      mycolor := mycolor + 2;
   end;